Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue32/survive/demo1.dfm/demo1.txt

Text File | 1998-02-23 | 3.2 KB | 186 lines

object Form1: TForm1
  Left = 221
  Top = 110
  Width = 732
  Height = 616
  Caption = 'Form1'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 19
    Top = 33
    Width = 31
    Height = 13
    Caption = 'Server'
  end
  object Label2: TLabel
    Left = 19
    Top = 59
    Width = 48
    Height = 13
    Caption = 'Username'
  end
  object Label3: TLabel
    Left = 19
    Top = 85
    Width = 46
    Height = 13
    Caption = 'Password'
  end
  object Label4: TLabel
    Left = 299
    Top = 10
    Width = 51
    Height = 13
    Caption = 'Databases'
  end
  object Label5: TLabel
    Left = 440
    Top = 10
    Width = 32
    Height = 13
    Caption = 'Tables'
  end
  object Label6: TLabel
    Left = 581
    Top = 10
    Width = 40
    Height = 13
    Caption = 'Columns'
  end
  object Label7: TLabel
    Left = 8
    Top = 313
    Width = 35
    Height = 13
    Caption = 'Results'
  end
  object Label8: TLabel
    Left = 8
    Top = 193
    Width = 28
    Height = 13
    Caption = 'Query'
  end
  object edtServerName: TEdit
    Left = 80
    Top = 29
    Width = 121
    Height = 21
    TabOrder = 0
  end
  object edtUsername: TEdit
    Left = 80
    Top = 55
    Width = 121
    Height = 21
    TabOrder = 1
  end
  object edtPassword: TEdit
    Left = 80
    Top = 81
    Width = 121
    Height = 21
    PasswordChar = '*'
    TabOrder = 2
  end
  object btnConnect: TButton
    Left = 219
    Top = 33
    Width = 75
    Height = 25
    Caption = 'Connect'
    TabOrder = 3
    OnClick = btnConnectClick
  end
  object memResults: TMemo
    Left = 8
    Top = 328
    Width = 705
    Height = 253
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Courier New'
    Font.Style = []
    ParentFont = False
    ScrollBars = ssBoth
    TabOrder = 4
    WordWrap = False
  end
  object lstDatabaseNames: TListBox
    Left = 299
    Top = 24
    Width = 133
    Height = 149
    ItemHeight = 13
    TabOrder = 5
    OnClick = lstDatabaseNamesClick
  end
  object lstTableNames: TListBox
    Left = 440
    Top = 24
    Width = 133
    Height = 149
    ItemHeight = 13
    TabOrder = 6
    OnClick = lstTableNamesClick
  end
  object lstColumnNames: TListBox
    Left = 581
    Top = 24
    Width = 133
    Height = 149
    ItemHeight = 13
    TabOrder = 7
  end
  object memQuery: TMemo
    Left = 8
    Top = 208
    Width = 707
    Height = 93
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Courier New'
    Font.Style = []
    ParentFont = False
    ScrollBars = ssBoth
    TabOrder = 8
    WordWrap = False
  end
  object btnExecSQL: TButton
    Left = 49
    Top = 181
    Width = 75
    Height = 25
    Caption = 'ExecSQL'
    TabOrder = 9
    OnClick = btnExecSQLClick
  end
  object btnOpenSQL: TButton
    Left = 136
    Top = 181
    Width = 75
    Height = 25
    Caption = 'OpenSQL'
    TabOrder = 10
    OnClick = btnOpenSQLClick
  end
  object Button3: TButton
    Left = 218
    Top = 136
    Width = 75
    Height = 25
    Caption = 'Button3'
    TabOrder = 11
  end
end